  
  Here is the BASIC code for my simple little program.
  Decent programmers, please contain your laughter.

  Please note : You may notice some strange stuff going on with pauses and
  CLS  MODE8  CLS. This is because, for some reason, the screen completely
  blanks if you don't do this.

   10 REM =========
   20 REM = LOTTO =
   30 REM =========
   40 REM
   50 :
   60 REM By Neil Simpson
   70 :
   80 REM <?> MAIN PROGRAM
   90 PROCSTARTUP
  100 PROCNUMBERS
  110 END
  120 :
  130 DEFPROCSTARTUP
  135 REM <?> Pause for slow screen display & Intro Screen
  140 FOR PAUSE% = 1 TO 5000 : NEXT PAUSE%
  150 CLS
  160 MODE 8
  170 CLS
  180 COLOUR 3
  190 VDU 23,31,48|
  200 VDU 23,28,3|
  210 PRINT "Neil Simpson Presents"
  220 COLOUR 9
  230 PRINT " TurboLottery v1.02"
  240 PRINT
  270 VDU 23,31,12|
  280 VDU 23,28,3|
  290 COLOUR 5
  300 PRINT : PRINT : PRINT TAB(29) "Please press the <spacebar> to continue!"
  310 REPEAT UNTIL INKEY(10)=32:CLS
  320 ENDPROC
  330 :
  340 DEFPROCNUMBERS
  345 REM <?> ReadMe and number generation
  350 MODE8
  355 COLOUR 6
  360 PRINT "== Hello and welcome to TurboLottery, By Neil Simpson"
  365 COLOUR 7
  370 PRINT
  380 PRINT "This is a VERY little program to make up lottery numbers. I would have done it"
  390 PRINT "in HyperCard, but on my old 68030 Mac it takes quite literally five minutes to"
  400 PRINT "load up. This is ANNOYING!"
  410 PRINT
  420 PRINT "This program is tailor made for the sole purpose of generating lottery numbers,"
  430 PRINT "so it loads fast, goes fast but unfortunately doesn't look very flash!"
  460 PRINT
  470 PRINT "I wouldn't dream of charging you money for something so simple, this is free."
  480 PRINT "This was written for MacFormat magazine on 25 January 1995."
  485 PRINT : PRINT
  487 :
  490 FOR loop% = 1 TO 6
  500 number = RND(49)
  510 COLOUR 2
  520 PRINT "Number : ";loop%
  530 COLOUR 3
  540 PRINT : PRINT "Write down the number ";number
  550 PRINT
  570 NEXT loop%
  580 COLOUR 7
  585 PRINT
  590 PRINT "Good Luck!"
  600 PRINT : PRINT
  610 PRINT "<SPACEBAR> TO QUIT"
  620 REPEAT UNTIL INKEY(10)=32
  630 ENDPROC
